home *** CD-ROM | disk | FTP | other *** search
/ A.C.E. 2 / ACE CD 2.iso / FILES / UTILS / AMOS1.DMS / in.adf / Get_Time.AMOS / Get_Time.amosSourceCode
Encoding:
AMOS Source Code  |  1991-09-09  |  1.4 KB  |  64 lines
  1. '----------------------------------
  2. ' How to get TIME and DATE in AMOS 
  3. '----------------------------------  
  4. '
  5. _DATE$ : Print Param$
  6. _TIME$ : Print Param$
  7. '
  8. Procedure _DATE$
  9.    '
  10.    ' Call DOS DateStamp function
  11.    T$=Space$(12)
  12.    Dreg(1)=Varptr(T$)
  13.    RIEN=Doscall(-192)
  14.    NJ=Leek(Varptr(T$))
  15.    '
  16.    ' Find this year's first day 
  17.    A=1978 : JOUR=7
  18.    Do 
  19.       BIS=0 : If(A and 3)=0 : BIS=1 : End If 
  20.       Exit If NJ-365-BIS<0
  21.       Add JOUR,1+BIS : If JOUR>7 : Add JOUR,-7 : End If 
  22.       Add NJ,-365-BIS
  23.       Inc A
  24.    Loop 
  25.    '
  26.    ' Find month 
  27.    M=1
  28.    Do 
  29.       Read N
  30.       Exit If NJ-N<0
  31.       Add NJ,-N : Inc M
  32.    Loop 
  33.    Inc NJ
  34.    '
  35.    ' Fabrique la chaine 
  36.       J$=Mid$(Str$(NJ),2) : If Len(J$)<2 : J$="0"+J$ : End If 
  37.       M$=Mid$(Str$(M),2) : If Len(M$)<2 : M$="0"+M$ : End If 
  38.       A$=Mid$(Str$(A),2)
  39.       DATE$=J$+"-"+M$+"-"+A$
  40.    '
  41.    ' Length of each month 
  42.    Data 31,28+BIS,31,30,31,30,31,31,30,31,30,31
  43.    '
  44. End Proc[DATE$]
  45. Procedure _TIME$
  46.    '
  47.    ' Call DOS function
  48.    T$=Space$(12)
  49.    Dreg(1)=Varptr(T$)
  50.    RIEN=Doscall(-192)
  51.    MN=Leek(Varptr(T$)+4)
  52.    SEC=Leek(Varptr(T$)+8)
  53.    '
  54.    ' Minutes calculation
  55.    H=MN/60 : H$=Mid$(Str$(H),2) : If Len(H$)<2 : H$="0"+H$ : End If 
  56.    M=MN mod 60 : M$=Mid$(Str$(M),2) : If Len(M$)<2 : M$="0"+M$ : End If 
  57.    '
  58.    ' Seconds calculation  
  59.    S=SEC/50 : S$=Mid$(Str$(S),2) : If Len(S$)<2 : S$="0"+S$ : End If 
  60.    '
  61.    ' Final string 
  62.    TIME$=H$+":"+M$+":"+S$
  63.    '
  64. End Proc[TIME$]